home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1990: Discy Business / Discy Business.2mg / DEV.CD / GUIDED.TOURS / GS.DEMO.STRT / STARTUP (.txt) < prev   
Encoding:
Applesoft BASIC Source Code  |  1986-08-19  |  440 b   |  21 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 1  POKE 1012,(255 - PEEK(1012))
  2. 2  HOME 
  3. 3 D$ =  CHR$(4)
  4. 4  ONERR  GOTO 99
  5. 5  IF  PEEK( -16287) > = 128  THEN  PRINT D$;"run config"
  6. 6  PRINT D$;"pr#3"
  7. 7  FOR I = 1 TO 12: PRINT : NEXT I
  8. 8  PRINT  SPC( 25);"Please wait while loading ..."
  9. 9  FOR I = 2816 TO 3071: POKE I,0: NEXT I
  10. 10  PRINT D$;"prefix bin"
  11. 12  PRINT D$;"bload eagle,a$1000"
  12. 14  CALL 4098
  13. 17  PRINT D$;"bload params,a$300"
  14. 20  PRINT D$;"bload animate,a$4000"
  15. 22  PRINT D$;"bload cast,a$1000"
  16. 25  FOR I = 0 TO 3: POKE 4144 +I, PEEK(768 +I): NEXT I
  17. 31  POKE 4160,0
  18. 32  CALL 4096
  19. 33  NOTRACE : HOME 
  20. 40  CALL 976
  21. 99  PRINT "...cannot load program": END